#lang rosetta-racket


(require "sphere-of-cones.rkt")

(provide sphere-of-cones-1-example
         sphere-of-cones-2-example
         sphere-of-cones-3-example
         sphere-of-cones-4-example)


(define (sphere-of-cones-1-example)
  (view
   (xyz 2.440635416051291 0.0 2.4521226318086606)
   (xyz 4.440892098500626e-016 0.0 0.011487215757369995)
   (perspective 35)
   (sphere-of-cones 0.08 1.5 16)))

(define (sphere-of-cones-2-example)
  (view
   (xyz 0.3213046867551027 0.0 0.3262185342365484)
   (xyz 0.003286684137962333 0.0 0.008200531619408105)
   (perspective 35)
   (sphere-of-cones 0.03 0.2 20)))

(define (sphere-of-cones-3-example)
  (view
   (xyz 0.3213046867551027 0.0 0.3262185342365484)
   (xyz 0.003286684137962333 0.0 0.008200531619408105)
   (perspective 35)
   (sphere-of-cones 0.03 0.25 20)))

(define (sphere-of-cones-4-example)
  (view
   (xyz 0.4712898925688305 0.0 0.47620374005027627)
   (xyz 0.0032866841379623328 0.0 0.008200531619408105)
   (perspective 35)
   (sphere-of-cones 0.04 0.3 20)))